5 POKE45,PEEK(174):POKE46,PEEK(175):CLR
10 DV=PEEK(186):IFDV<8ORDV>16THENDV=8
20 OPEN15,DV,15:ML=38400:SL=52608:DT=PEEK(ML+87)+256*PEEK(ML+88)
25 DN$="":DIMF$(16)
30 PRINT"[147] [211]ELECT PROGRAM:":OPEN1,DV,0,"$:NOVA.*":GET#1,A$,A$:SYSML+54:MX=0
40 SYSML+54:IFRIGHT$(Z$,1)="."ORRIGHT$(Z$,4)="FREE"THEN80
45 GETA$:IFA$="[133]"THENCLOSE1:PRINT:GOTO110
46 IFP=0THENP=VAL(A$)
47 IFP>0ANDMX>=PTHENPRINT:GOTO101
50 F$="":MX=MX+1:FORI=12TO22:A$=MID$(Z$,I,1):IFA$=CHR$(34)THENI=22:GOTO70
60 F$(MX)=F$(MX)+A$
70 NEXT:PRINT" "F$(MX)"[160]":GOTO40
80 CLOSE1:PRINT" [210]ETURN TO [206]OVATERM[160]":MX=MX+2
90 POKE780,1:POKE781,2:POKE782,MX:POKEDT+37,1:SYSSL+27:P=PEEK(780):IFP=MXTHEN110
101 PRINT" [204]OADING NOVA."F$(P)
102 OPEN2,DV,0,"NOVA."+F$(P):INPUT#15,E:CLOSE2:IFE>19THEN30
105 LOAD"NOVA."+F$(P),DV
110 OPEN2,DV,0,"NOVATERM ?.?*":INPUT#15,E:CLOSE2:IFE>19THENEND
115 PRINT" [204]OADING [206]OVATERM..."
120 POKE787,DV:CLR:LOAD"NOVATERM ?.?*",PEEK(787)